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; 9 019 
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3 1 0021 
3 2 00 
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3 & 0024 
. 2 0025 
3 6 00 

3 7 00 

3 8 0028 
3 9 0029 
: 0 0030 
3 1 itt 
; : $038 
33 a 
Oe 
3 35 0038 
: 9 it 
; “f ira 
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3 44 Bee 
: 45 045 
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MODULE exch$fil ZTITLE ‘Files-11 volume specific routines’ 


11 

( 

IDENT = ‘V04-000' 

1 temeeee teeta (EXTERNAL=LONG_RELATIVE, NONE XTERNAL=WORD_RELATIVE) 
= 

BEGIN 


ASE SSSSSS£IS EIS ETE TT TTT TTT TTT c Tire i ric iii citi irri iii i iii iii iit 
' 


© 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
ie ALL RIGHTS RESERVED. . 
* 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

ie TRANSFERRED. . 
. ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

& 

® 

® 

® 

® 

si 


C 
'# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
'® CORPORATION. 


t® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
ESSEC SESISE SECTS TESTS TTT TST TTT T CTP e TT eee cece cece ccc cece ci i icici iii i it iaa) 


le 

FACILITY: EXCHANGE = Foreign volume interchange facility 

ABSTRACT: Files-11 specific routines 

ENVIRONMENT: VAX/VMS User mode 

; AUTHOR: CW Hobbs CREATION DATE: 26-Aug-1982 
MODIFIED BY: 

i v03-002 CwH3002 CW Hobbs 12-Apr-1984 

' Supply the close routine as the delete routine for files-11 
to prevent leaving files open after random errors. 

Rae 


Include files: 


MACRO $module_name_ string = ‘exch$fil11" 2%; : The require file needs to know our module name 
REQUIRE 'SRCSTEXCREQ' ! Facility-wide require file 
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EXCHSFIL11 Files-11 volume specific routines 16-Sep 
v04 Module table of contents 14-Sep 


ZSBITL ‘Module table of contents’ 
Module table of contents: 
FORWARD ROUTINE 
excnet Lii_close_file, 
exch$filli— acreaté_ file, 


exch$filli_get 
ere ne titling open. file, 


EXCHANGE facility routines 
EXTERNAL ROUTINE 


: 
; 


$a EY 
a a a a a a a = 8 = 


Oe Se Se Se Se Be Se Oe Oe Oe Oe Oe Ge OH Oe Se Oe Se Oe es Oe Oe Oe OH St Oe Se ee ee 
oa 
oo 


rt: exch$cmd_related_file_parse, 
0 5 exch$util_file_efror, 
71 68 exch$util2 “rmsb_allocate 
7 6 3 
iF 5 rt ' Equated bol 
' Equated symbols: 
75 % ! 
7 71 ‘LITERAL 
7 i : 3 
78 017 
79 0174 ! Bound declarations: 
80 0175 ! 
81 0176 'BIND 
82 0177 ! ; 
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EXCHNG. SRO} EX 


iles-11 specific file close routine 
bt speesse file create routine 
et 


F 

F 

Pitesti s 

Files- speetyrs file open routine 
Put record 


Perform an RMS oe file parse 
Signal an RMS e 
Get an RMSB 


2 
CFIL11.832; 
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° 4 
exchSfilll close Hie (filb 1Sseont 98s 93: 38: de EXCHNG. SRC EXC LIt .83 B32;1 (3). 
173 1 297 ROUTINE exch$filll_close_file (filb : Sref_bblock) = ZSBTTL ‘exch$filll_close_file (filb)’ 


“ 


BEG] 


lee 


FUNCTIONAL DESCRIPTION: 


Uw 


Perform Files-11 volume specific close processing 
INPUT/OUTPUT: 

filb = pointer to block describing the file 
IMPLICIT INPUTS: 


st 8  _  _ _ _ _ _ _ _ 


i #8 

. i 

: i 

; 4 

; 38 

; (9S 5 

; 39 3 5 i 

; a8 35 none 

5 100 34 OUTPUTS: | 
196 38 filb - receive info pertaining to the file to be closed | 
H Ine a8 IMPLICIT OUTPUTS: 

..% 00 i none 

; 109 01 2! 

; 198 0 O¢ ROUTINE VALUE: 
P4 | 
3 139 Be true if able to close the file, false otherwise 

; | 
ig of SIDE EFFECTS: | 
3 (116 08 i none 

i. Bi 

> (117 0211 2 $dbgtrc_prefix ("filll_close_file> "); 
a: 0918 $ LocaL | 
: 120 0214 status 

3 ' 1 3 1? 3 

Bb : 0517 5 BIND | 
: 126 18 namb = filb 1} bSe. assoc_namb) : $ref_bblock, 

; 125 19 ctx = filb Cfilb$a-context) : $ref_bblock, 

.72% § 0 fab = ctx Crmsb$a_fab) : $ref—bblock 
: Se : ; | 
; 9 § Sdebug_print_lit (‘entry'); 
: 131 5 Sblock_check ( -filb, filb, 497); 1272 definitely over-zealous checking 
; 13 $ $Sblock_check ( ; snamb, namb, 498): 

3 ' : Sblock-check (2, .ctx, rmsb, 499); 

: 135 | 
: : : Close the file | 
: 138 g étr race_print_fao ('closing, fab= XL fab); 
: 44 ? If vo (status = $close (fab = .fab)S © 


mm 
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o 
Tv 
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| 
| 
exch fit close le (filb) Sep-1 EXCHNG.SRCJEXCFIL 
Hh a exch$util_fileerror (exch$_closeerr, .status, .fab, .fab Cfab$l_stvJ); | 


ha Status; 


E et ed Files-11 volume specific routines 
T \v04-0 


| 
| 
RN EXCHSCMD_RELATED_FILE_PARSE | 
RN EXCHSUTIC_FILE_ERROR ~ 
TRN EXC WSUTIL “RMSB_ ALLOCATE 
«EXTRN EXCHSUTIL_BLOCR_CH 
-EXTRN SYSSCLOSE, EXCHS_ CLOSEERR 
| 
| 


~PSECT EXCHSFIL11_CODE ,NOWRT,2 


007¢ 00000 ENTRY EXCHSFILIT CLOSE_FILE, Save R2,R3,R4,R5,R6 ; 0178 

56 000000006 EF 9E 0002 MOV EXCHSUTIL BLOCK. CHECK, R6 ; 
53 04 AC 18 C1 0000 ADDL aes, FILB; R : 0218 
54 04 AC 20 ¢1 0000 ADDLS #32, FILB, R4 > 0219 
55 64 10 €1 0001 ADDL 16, (R4). RS : 0220 
52 O35B00FA Hi BO 001 MOVL #6095674, R2 : 0225 

51 O1F1 F 3¢ OO1E MOVZ2WL #497, RI ; 

50 04 AC 00 000 MOVL  FILB, RO ; 

66 16 00027 JSB EXCHEUT IL BLOCK CHECK : 
52 O10A00F7 = BF p0 000 9 MOVL 17432823, R2 + 0226 

51 O1F2 8F 3C 00030 MOVZWL #498, R1 ; 

50 63 D0 900 5 MOVL  (R3). RO : 

66 16 00038 JSB EXCHEUTIL BLOCK CHECK ; 
52 031600F i p0 0003A MOVL  #51773686, R2 ; 0227 

51 O1F F 3C 00041 MOV2WL #499, R1 ; 

50 64 00 00046 MOVL (R4). RO : 

66 16 00049 JSB EXCHSUTIL_BLOCK_CHECK : 
52 65 DO 00048 MOVL (R5), R2 > 0233 

52 DD 0004 PUSHL R2 ; 

000000006 99 1 FB 0005 CALLS #1, SYSS$CLOSE ; 

5 Q D 9005 OVL RO, STATUS ; 

E8 OO05A BLBS STATUS, 1$ ; 
0C A2 dD 0005p PUSHL Ae ) > 0235 

DD 00060 PUSHL R : 

DD 00062 PUSHL STATUS ; 

000000006 BF DD 00064 PUSHL HEXCHS CLOSEERR : 

000000006 Ef 4 FB : A CALLS EXCHSUTIL. FILE_ERROR : 
0 3D 1 1$: MOVL gt TAT : 0337 
04 00074 RET : 0238 

; Routine Size: 117 bytes, Routine Base: EXCHS$FIL11_CODE + 0000 


<= 


mm 
$5 
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co copy$a_out_filb] = pointer to filb for the output file 
oe 44 ~43 tb : lb f : 


fi 
copy Ccopy$a_inp_ - pointer to fi or the input file 


exch$filll_create_file -Sep-1 EXCHNG.SRCJEXCFIL11.832;1 (4) | 

1¢ i tit ROUTINE exch$filll_create_file = XSBTTL ‘exch$filll_create_file' 

rt a ++ 

4 4 
? tz FUNCTIONAL DESCRIPTION: 
§ rf Perform Files-11 volume specific create processing | 
4 ! INPUT: 
: 
$ none 

34 IMPLICIT INPUTS: 


an 
wr 


OUTPUTS: 


Aan 
ws 


out_filb - receive info pertaining to the created file 
IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 


PEAEQPLQAEMA MAMI 
MEW —OOONOULSWN—O 


& 


true if able to create a file, false otherwise 


ee ee ee cc ee a ee cc ee ee ee ed ed ed ed 
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0 
0 
3 
& 0 
| 
0 
4 0 
i 6 
74 oso? 
2 8 OB SIDE EFFECTS: 
6 $555 none 
Bo BA Bis 
89 0378 $Sdbgtrc_prefix ('filll_create_file> '); 
Ht B67? LOCAL 
4 3 u 4 $bblock Cnam$c_bln+nam$c_maxrss], ! An RMS NAM block plus the expanded string buffer for outpu 
s 
85 A ; 
Hy 80 BIND 
88 81 copy = exch$a_gbl Cexcg$a ai work : $ref_bblock, 
34 86 out_nmame = copy copys. g.9utpy put filename : $desc_block, 
inp_filb = copy : $ref_Bblock, 
91 84 out_filb = copy cop yee out “Hite : $ref opp} eck 
3 285 ctx = out_filb [Cfilb$a_context] : $ref_bblock, 
4 Hy out_namb = out” filb titpeee ~assoc_namb) : $ref_bblock 
95 . 
4 89 $debug_print_lit (‘entry'); 
198 91 Sblock_check ( -out_filb, filb, 511); 
199 3 Sblock“check (2, .inp~filb, filb, $3); 
00 9 $Sblock_check (2, .out_namb, namb ); 
ot 6 94 Slogic~check (2. (.out_filb Cfilb$a_assoc_volb] EQL 0), 138); 
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: ae 
. 
3 9 
3 10 
; 0 13 
; 18 
O31 
: O36 
3) 
: ; 15 
2 si 
: 
3 324 
; §358 
; 03 § 
: 5 03 8 
: 236 9 
3 37 P 0330 
3 38 P be 1 
; 239 P 0 § 
; 240 e th 

3 41 P 8 4 
; $g P 5 
BP hams 
> 264 P 

; rf P 
+ 26 Pp si 
; 248 P 0341 
: 49 P rs | 
; 250 P 034 
2 He 
2 aed 
; p rh: 
3 P 0350 
3 51 
3 0352 


“11 
filll create 
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If the context block is null, then allocate an RMSB 


if gcte EQL 0 
ctx = exch$util_rmsb_allocate () 
Sblock check (2, .ctx, rmsb, 513); 


fab = ct 
rab = ct 
nam = ct 


BEGI 
BIND 


rmsb$a_rab 
rmsb$a_nam 


frasbsa-rabj : Sref_bblock, 


: $Sref_bblock, 
: Sref_bblock; 


' Get a fresh one 


Check the old one 


Create a name string in the out_filb for the ‘‘NOTCOPIED'’ message, just in case we exit with an error 
out_filb CAVLOSt Popul t name_len 


CHSCOPY (.out_name 


dsc$w_length), 
filb$s_result_name, out_filb 


= ,out_name Rdocdu, Longthds 
dsc$a_pointerJ, 0, 
filb$€_result_name]); 


! Perform an RMS output file parse on the related name (the result name for the input file) and the 


requested output name from the command Line. 


if NOT (status = exch$cmd_related file parse ( 
+ sout_name Cdsc$a poinver). 
sine filo filb$T_result_name_Ten], ino_filb Cfilb$t_result_name], 


$fab_init ( 
AB 


-out_name Cdsc$w 
rfp 


-fab, 

(BRO,PUT) 

rfp Enan$\ esa ° 
nal nam$b_eslJ, 


nam, 


VAR 
(GEf,PUT,UPI)); 
rab, 

SeQ, 

WBH 

. fab); 

.nam, 

.ctx Crmsb$a_rsbuf], 

nam$c_maxrss 


.ctx Ermsb$a_esbuf), 
nam$c_maxrss); 


' Related name 
' Gets new name 


N 

$Sexch_signal_return (exch$_openout, 1, out_name, .status); 

$trace_print_fao (‘trying to create "!AF', .rfp Cnam$b_esl], .rfp Cnam$l_esa]); 
Initialize the RMS structures 


Output file FAB 

Put only, block I/0 in case we can do things faster that 
Set name addr 

Set name size 

Sequential only 

Name block 

Carriage-return carriage control 

Variable-length records 

Allow other readers/writers 


Output file RAB 
Multi-buffer count (MBC from process or system default) 
Sequent at only 
Write behind 
addr 


File name block 
Result name addr 
Result name size 
Expanded name addr 
Expanded name size 


! Command Line out p 


2 


Se ee, Se ae a, a te 


EXCHSFIL11 
voe~000 


Fun O0O@ 


SN 
NOU 


Oo 


POPIPIPIPINPIPINPI NON Po Po PoMoNnofnonofnyd 
VEWUN—OOCONOULWNR— 


AY A ted 8s bet try oe eee 


oo 
coo~ 


Oo 
uw 


RARGN=OSRNS 


Kk 4 
Files-11 yolume specific routines 16-Sep-1984 00:56:31 AX-11 Bliss-32 V4,0-74 e 7 
exchSfilll create file 1or8ep- 1882 99:38:d, — LeXtHne SResexcr itis 04951 wr a) 


3 } Set the desired file attributes 


4 . 
5 fab CfabSv_mxv] = NOT .out_filb Cfilb$v_explicit_version); ! Use explicit version if given, otherwise m 
, ! We allow several Files-11 ‘‘output’’ qualifiers to be placed on the input parameter. We interpret ‘‘output”’ 
8 : qual itiers on the output spec (or the verb) as applying to all putput files. ‘Output’’ qualifiers on the 
23 } nput specs apply to files created for that input spec. If on both, use the one from the output (or verb) 
61 & fab Cfab$l_alq]) = (IF .copy Ccopy$l_q_allocation] NEQ 0 ! If specified on the output 
6 4 THEN ! then 
65 4 - Copy Ccopy$ig allocation] ! use that quentt ty 
rf: ? FUSE IF .inp_filb CFilb$l_q_allocation] NEQ 0; otherwise if /ALLOCATION was on the input 
' en 
66 4 -inp_filb Cfilb$l_q_allocation] ! use the /ALLOC quantity from the input f 
0367 4 ! otherwise 
8 rt: ; -inp_filb Cfilb$l_block_count)); ! use the size of the input file. 
0370 4 fab Cfab$w_deq) = (IF .copy Ccopy$l_q_extension] NEQ 0 
9 5) 4 ae — 2 C sd mp tension] 
-co co extension 
0 " 4 ELSE - icant 
8 a 3 -inp_filb Cfilb$l_q_extension)); 
B08 2 fab Cfab$v_cbt] = ad Ccopy$v_q_best_try_contiguous] ! Best try - overrides /contiguous if both p 
0378 4 true 
0379 4 ELSE 
Beno 3 -inp_filb Cfilb$v_q_best_try_contiguous]); 
0382 4 fab Cfab$v_ctg] = (IF .copy Ccopy$v_q_contiguous) 
O3B8 ? -ctg if, .copy Ccopy$v.q. g 
0384 4 true 
0385 4 L 
Bao ; -inp_filb Cfilb$v_q_contiguous]); 
0388 4 fab Cfab$v_tef] = (IF .copy Ccopy$v_q_truncate] ! Truncate over-allocations 
B355 4 THEN 
0390 4 true 
B30) 4 
$08 -inp_filb Cfilb$v_q_truncate)); ‘ 
0393 172 should truncate depend on explicit allocation and/or /TR 
0346 If /RECORD_FORMAT was given then tell him we are ignoring 
399 if .out_filb CfilbSv_rfmt_explicit) 
398 THEN 
399 4 BEGIN 
400 4 out_filb Pei tsar tat expt igits = false; 
401 4 out~filb Cfilb$b7rec_Tormat) = filb$k_rfmt_invalid; 
$06 4 $exth_signal (exch$_Filll_norec); 
104 sa 
va't : If /CARRIAGE_CONTROL was given on either input or output then set the record attribute 
40% if -out_filb Cfilb$Sv_cctl_explicit) 
109 4 fab Cfab$b_rat] = (CASE .out_filb Cfilb$b_car_control] FROM filb$k_cctl_lobound TO filb$k_cctl_hibound 
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1 
l EXCHNG.SRCJEXCFIL11. 


File 
exch 
3 FIT 410 4 SET 
; 18 411 4 filb$Sk_cctl_cr] : fab$m_cr; 
; wy tig 4 filb$Sk_cctl_fortran] : fab$m_ftn; 
3 0 413 4 filb$k_cctl none] : 0; 
; 1 414 4&4 TES) 
3 § rh ; FUSE IF .inp_filb Cfilb$Sv_cctl_explicit) 
; 3 <7 2 fab Cfab$b_rat] = Cease -inp_filb Cfilb$b_car_control] FROM filb$k_cctl_lobound TO filb$k_cctl_hibound 
3 8 419 4 filb$k_cctl cr] : fab$m_cr; 
3 420 4 filbSk cctl fortran] : fab$m_ftn; 
: 3 421 filb$k_cctl_none] : 0; 
; r § TES); 
3 1 0424 ! See if we need to override the record format, variabie by default. We do not allow record format qualifie 
: 338 04 5 (except for block transfer) on Files-11 filespecs, so get all record format info from the input file. 
; $e ? ? IF .out_filb Cfilb$Sb_transfer_mode] EQL filb$k_xfrm_block 
; 336 0 9 -inp_filb Cfilb$b_transfer_mode] EQL filb$k_xfrm_block 
; 337 8 0 EN 
; $36 431 4 BEGIN 
; 339 04 ; 4 fab Cfab$Sw_mrs] = 512; 
; 340 0433 4 fab CfabSb-rfm] = fab$c_fix; 
3 re 0434 4 EMD 
; 4g 0435 ; ELSE IF .inp_filb Cfilb$b_rec_format] EQL filb$k_rfmt_fixed 
H rs 0436 THEN 
; 344 0437 4 BEGIN 
; 345 0438 4 fab Cfab$w_mrs] = ping Fite Cfilb$l_fixed_len]; 
: 346 0439 4 fab Cfab$b_rfm] = fabSc_fix; 
; 347 0440 END; 
; 348 0441 
; $3 bee : Create and connect to the file 
; «351 0444 4 IF NOT (status = $create (fab = .fab)) 
; 326 0445 3 THEN 
: $2 0446 ¢ BEGIN 
3; 6354 0447 4 exch$util_file_error (exch$_openout, Status, -fab, .fab Cfab$l_stvJ); : 
; 355 0448 4 RET 0; . Dor 't pass any status so that we won't get a chained messa 
3 $29 bees 3 ! ched to the ''NOTCOPIED’’ message 
3 3 bees 1 Create the result name string in the out_filb 
; 360 o438 $logic check 3 ((,.nam Cnam$b_rsl] LEQU 11b$s _resylt_name) AND (.nam Cnam$b_rsl] GTRU 0)), 139); 
: 361 454 out _filb Cfilb$(_result nane.Lénj = ,nam Cnam$b_rslJ; ; 
; 4 oe? CHSCOPY (.nam Cnam$b_rsTJ, .fam Cnam$l_rsaJ, 0, filb$s_result_name, out_filb Cfilb$t_result_name)); 
; 3 43? $trace_print_fao (‘Created "!AF', .out_filb Cfilb$l_result_name_len], out_filb Cfilb$t_result_name]); | 
; 66 439 4 IF NOT (stotus = Sconnect ‘rab = .rab)) 
3 2 460 3 THEN 
i 368 461 4 BEGIN 
; 9 re) 4 exch$util_file_error (exch$_openout, .status, .fab, .rab Crab$l_stv]); 
; 370 465 4 close (fab = .fab); : 
; 371 464 4 RETURN 0; ! Don't pass ony Status so that we won't get a chained messa 
3 8 re ¢4 ; END; ! attached to the "'NOTCOPIED’’ message 
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EXCHSFIL11 Files-11 yolume specific routines e AX-11 Bliss-32 V4.0-74 Page 9| 
voceo08 exchStilit vcreate file 12: i. 1984 93: 35: a4 EXCHNG.SRC EXC LIT .039;1 . 4) | 
; qe 7 | Define a record stream for this i = 
; 78 4 5 out. filb {1} dS. record] = Q; ! No valid record or Length | 
; 37 4 out_filb [filb$lorecord_len] =_0; 
; re 4 out_filb Cfilb$v>files_Ereated] = true; ! Made a file using this filb | 
; 0 cfs ; Make sure that the record format in the filb is correct | 
3 S ot? '2% record format is in the rms structures 
3 Se <i Save the addresses of our routines for this volume and record format. 
; «4386 rh - -filb Cfilb$a_close_routine] = exch$filli_close_file; 
: 87 480 out. “filb Hs “deleté_routine] = exchsti tit. -close_ file; 
; 388 0481 t_filb Cfilb$a_put_routine = exch$fil11_ -put 3 
3 44 Be ; out? “filb Cfilb$a_get_routine = 0; ! We don't want to do this, so make it hard 
: 91 0484 END; ! End of BIND to the rmsb components 
3 3 0485 
; #39 0486 RETURN true; 
: 394 0487 
; «4395 0488 1 END; 
EXTRN EXCHSA_GBL, EXCH$_BADLOGIC 
-EXTRN EXCH$_FIL11_NOREC~ 
EXTRN SYSS$CREATE,” SYSSCONNECT 
OFFC 00000 eENTRY EXCHSFIL11_CREATE_FILE, Save R2,R3,R4,R5,- ; 0239 
R6,R7,RB,R9,RI0,RT1 $ 
SE FE98 CE 9E 00002 MOV -360(SP). SP : 
50 000000006 EF 04 C1 00007 ADDL3 #4, EXCH$A_GBL, RO : 0281 
58 60 DO 0000F MOVL (RO), RB : 0282 
57 14 AB SE 90012 MOVAB 20(R8), R7 : 
56 44 AB DO 00016 MOVL 68(RB8), R6 3; 0285 
52 O35B00FA BF v0 OO01A MOVL  #56295674, R2 : 0291 
51 OFF 7 C 00021 MOVZWL #511, R1 3 
50 6 dO 00026 MOVL  R6, RO ; 
000000006 EF 16 00029 JSB EXCHSUTIL_BLOCK_CHECK : 
5A C A8& DO 0002F MOVL opine RTO 3 0292 
3¢ 0358007 A Br b0 0033 MOVL #62 5674, R2 ; 
5 F 3C OOO3A MOVZWL #36 RI 3 
50 5A »? 8 F OVL R10, RO 3 
8090000 G EF 16 00 3 SB excueul BLOCK CHECK 3 
52 01 ot F 4 Be VL #17432823, R2 3; 0293 
51 90 F 5 4F MOVZWL #512, R j 
50 18 A6 DO 00054 OVL  24(R6), RO ; 
000000006 EF 1 6 8 JSB XCHSUTIL_BLOCK_CHECK ; 
1C 46 1) . TSTL 8(R6) 3; 0294 
7 38 EQL $ ; 
7E 8A F QA a3 MOVZBL #138, -(SP) ; 
1 OD 6 PUSHL #1 3 
000000006 F OD 69 PUSHL #EXCHS$ BADLOGIC 3 
00000000G 00 36rF of CALLS @# ut IB$STOP r 
20 Ab p § 1$ TSTL 3 tr : 0298 
0D 007 BNEQ $ 3 
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$36 EXCHSUTIL_FILE_ERROR 
3fR9), R2 
30$ 
#159. -(SP) 
sexcns BADLOGIC 
#3, LIBSSTOP 
Re. (R6) 
R2, a4(R9), #0, #256, 90(R6) 


R11 
#1, 1 


STATUS Sis 
12(R115 


R 

STATUS 
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ase EXCHSUTIL_FILE_ERROR 
#1, SYSS$CLOSE 
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XCHSFIL11 ahs rt}, olume specific routines \o~sen~ 1986 90:36:3) AX-11 Bliss-32 V4.0-74 
04 exch$filli_get (filb) 14-Sep-1984 12:29:04 EXCHNG. SRCJEXCFIL11.832;1 
f. 


3 me rh) 1 GLOBAL ROUTINE exch$filli_get (filb : Sref_bblock) = ZSBITL ‘exch$filli_get (filb)* 

; 398 490 BEGIN 

; 399 491 lee 

: 400 136 ' 

; rt ht FUNCTIONAL DESCRIPTION: 

; 408 182 Return a pointer to the next fixed-length record in the file 

; 405 497 i INPUTS: 

: 40? 43? filb = pointer to filb for an open Files-11 file 
; 409 $01 { IMPLICIT INPUTS: | 
Pitot fio. 
; t18 0505 i QUTPUTS: | 
: 44146 208 : 
| ee be poe 
: ti? 0509 2 | IMPLICIT OUTPUTS: | 
; 418 0510 ; 
; 419 0511 ' none 
: 420 bale ' | 
; $s) beiz ROUTINE VALUE: | 
; 638 015 ; true if success, false if any error 

; 45 O17 i SIDE EFFECTS: | 
; ‘3? b255 ; error conditions will be signaled 
i 489 0381 | 
; 430 05 § $dbgtrc_prefix ('filll_get> '); 

i 03 03%4 LOCAL | 
; 233 0525 status | 
i Tee | 
: 436 528 2 BIND 
: 437 0529 namb = filb Cfilb$a_assoc_namb] : Sref_bblock, 

; 438 Be 0 ctx = filb [filb$a_context] : $ref_bblock, 
3; 439 531 fab = ctx Crmsb$a_fab] : $ref_ublock, 

: re b2 § rab = ctx rmsb$a_rab] : Sref_bblock 

> 44 534 ; 

3 rr 2 5 $debug_print_lit (‘entry'); | 
: 445 5 $ $block_check (2, .filb, filb, 500); '2? definitely over-zealous checking 
3; «44 538 Sblock_check (2, .mamb, namb, ; 
; rr 44 Sblock_check (2, .ctx, rmsb, 501); 

; rc 2! 1 Set the user buffer fields in the rab 

; $2) 508 rab Crab$l_ubf) = filb Cfilb$t_record_buffer]; ! buffer address 

: 13 545 ' Read a single record from SYS$INPUT 


5 
EXCHSFIL11 Files-11 volume gs gifts routines 1b-sep-1 AX=11 Oi tog =-32 V4.0-74 Page 
fOs2000 exch fill) get Ct Ff 14- =Sep- 1986 99: 38: a4 EXCHNG. SRC SExCFILI -B32;1 . 
; 454 248 ! 
3 2 5 : status = I a Crab$v_bio] ! If we are doing block I/0 to the file 
; 4 ‘ 28 4 BEGIN 
: 458 550 4 rab Crab$w_usz]) = 512; ' Buffer size 
: 459 >> i | $read (rab = stab) i Physical uses block i/o 
; 460 5 ¢ 4 ND 
> 461 5 3 ELSE 
; 46 554 4 BEGIN 
; «(46 555 4 rab Crab$w_usz] = filb$s_record_buffer; ! buffer size 
; tee ae east. (rab = .rab) “! Everything else is record i/o 
: 466 085 
: 467 5 : ! Since we are using locate mode, RMS can return a record which is larger than our buffer. We check the 
; ree bey returned record length and simuiate an RMS$_RTB error if we see such an animal. 
; 470 B206 If .rab Crab$w_rsz] GTRU filb$s_record_buffer 
3; «471 056 THEN 
; 47 0564 BEGIN 
; 47 0565 status = rms$_r ' Status is record too big 
3; 474 3208 rab Crab$l a. * red Crab$w_rsz); ! STV contains the record size for the signal 
; 475 056 END; 
3; 476 0568 
3 477 0569 ! Signal any rms (or simulated rms) errors 
; 478 0570 ! 
; 479 0571 IF NOT .status 
: 480 Bare THEN 
; 6481 057 BEGIN 
; 48 0574 
; 48 0575 filb Cfilb$a_record] = 0; ! Invalidate record descriptor 
3 tee Bees filb Cfilb$l=record_len] = 0; 
; 486 0578 ! If the error is anything but end of file then signal 
: 487 0579 i 
; 488 0580 if .status NEQ rms$ _eof 
: 489 0581 THEN 
: 490 bees 4 BEGIN 
; 491 0585 4 exch$util_file_error (exch$_readerr, .status, .fab, .rab Crab$l_stv)); 
3; 49 Beet 4 RETURN .status; ' Return the RMS error 
3; 49 23 4 END 
; 494 0586 4 
; 4495 £344 4 ! Normal exit, return 0 
: 496 0588 4 ! 
3; 497 8283 ELSE 
; 498 5 RETURN false; 
; 499 B29) D; 
; $00 236 : 
; 23) ser ; Return the address and length of the record 
3 208 595 filb filb$a_record) = .rab Crabs! “rot: 
3 be 238 filb Cfilb$l"record_len] = .rab Crab$worsz 
3 06 44 RETURN true; 
: 50 59 
; 508 600 END; 
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0601 1 Ss. Seat ROUTINE exchS$filll_open_file = %SBTTL ‘exch$filll_open_file' 
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FUNCTIONAL DESCRIPTION: 
Perform Files-11 volume specific open processing | 
INPUT/OUTPUT : 
none | 
IMPLICIT INPUTS: 
copy verb work area 
OUTPUTS: | 
none | 
IMPLICIT OUTPUTS: | 
none 
ROUTINE VALUE: | 
true if able to open a file, false otherwise | 
SIDE EFFECTS: | 
file is opened, copy work area modified 


neni, | 
* 


$dbgtrc_prefix (‘filll_open_file> '); 
LOCAL 


PPLE EEE 


PAA) Cann erg ee eee De eh yee Sa! oo ee ae or 9 
OANA VE WD 0 OB VOUS WN O ODA UNE WN SO OBNOU EWN OOOO WO 


3 a $bblock Cxab$c_fhclen], ' File header char xab so that we can read the size of the f 
063 status 
ei BIND 
4 copy = exch$a_gbl Cexcg$a_copy_work] : $ref_bblock, 
inp_filb = copy Ccopy$a_inp_f bd : Sref_bblock, | 
out_filb = copy copy $a_out fil : $ref_bblock, 
ctx” = inp_fi $a_context : $ref_bblock, 
namb = inp_filb Lfilb$a_assoc_namb] : $ref_bblock 


$debug_print_lit (‘entry'); 


S$block_check_if_nonzero (2, .o tb filb, 577); | 

Sblock_ check (2, .inp_filb, fi 5025; 

$Sblock-check (2, .namb, namb ; 
ftilb (tilbsa 


Slogic check (2, (.inp_ ~assoc_volb]) EQL 0), 136); 
If the context block is null, then allocate an RMSB 
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H § 
olume specific routines ep-19 AX-11 Bliss-32 v4 Page 17 
{ .open_ ft le 128 Sep eats 4 99: 38; bu EXCHNG.SRCI Sexcricis 63 B832;1 . (6) | 
IF .ctx EQL 0 | 
THEN 
ese’ = exch$util_rmsb_allocate () ! Get a fresh one 
Sblock_check (2, .ctx, rmsb, 504); ' Check the old one 
ue the RTL routine to find the next file matched by the input name, unless we are reopening in which case. 
i ready 
' 
iF NOT .copy Ccopy$v_reopen_input] 
A. py Ccopy$v_reop pu 
erase -print. be f. before find_ — fullname !AS, inpname !AS, wee !X 
amb Cnamb “ful nine) ‘inp filb (ri itbsa, nese ret ing. eae ati Cfilb$a_fill1_wec 
status = LiDsting, ite, head [ namb b$q_fu Uloane inp,t Cfitb bsain name String. inp_filb Livtbsa. #111 _we 


$trace_print_fao T re status nL, ft iname 'AS, orcas wee 
IF NOT .st ‘cstatus, ‘naa namb$q_ fui tnaned, inp_filb ct b$q. none *stringl. inp filb Cfilb$a_fill1_wee] 
-Status 


BEGIN 

if a -inp_filb Cfilb$v_files_ found] ! If no files were found, then scream and shout 
Sexch_signal (exch$_filenotfound, 1, namb Cnamb$q_fullname], .status); 

IF _ etetus EQL rms$_nmf ! rms$_nmf means that we are done with this filespec 
(BEGIN ! Or if the error is severe 
BIND 


1 ¥ sts$v_severity] EOL wt oth _severe 


status = 0; ! 0 status terminates the ourer loop 


| 
| 
b = status : $bblo 
RETURN .status; | 
END; 

| 

| 


END; 

BEGIN 

BIND 
fab = ctx Crmsb$a_fab] : Sref_bblock, 
rab = ete rmsb$a_rab) : $ref_ “bblock. 
nam = 


qse rmsb$a_nam) : $Sref— 5 
res = inp_filb CfTlb$q_ name string $desc_block; 


Initialize the RMS structures 
$fab_init ( 


FAB = .fab, ' Input file 
FAC = (BRO,GET) ! Get only, block 1/0 in case we can do things faster that | 
FNA = .res dsc$a_ ointer], ' Set name addr 

FNS = .res Cdsc$w_length], ' Set name size 

FOP = $0, ' Sequential only 
NAM = .nam, ' Name block | 
SHR = (GET,PUT,UPI), ! Allow other readers/writers é 

MAB = xab); ' A file header char xab so that we can read the file size | 
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1 volume specific routines 1b-se -1984 00:56:31 AX-11 Bliss-32 V4.0-74 Page 18) 
LI} -open. tite ease 13Be 99:38:5, | eet eNN Obese ze Vt G9" 288. oF 66) | 
$rab_init ( 

RAB = ,rab, ' Input file RAB 

MBF = 2 i “Multi-buffer count (MBC from default) 

RAC = SEQ ! Sequential only 

ROP = (Loe RAH), i Locate mode, read ahead 

FAB = . fab); i FAB addr 
Snam_init ( 

NAM = .nam, ! File name block 

RSA = .ctx Crmsb$a_rsbuf], ! Result name addr 

RSS = nam$c_maxrss, ' Result name size 

ESA = .ctx [Ermsb$a_esbuf], ! Expanded name addr 

SS = nam$c_maxrss); ! Expanded name size 
Sxabfhc_init ( ! File header char xab so that we can read the file size 
= xab); ! RMS will fill it in when we open 


If this is a block transfer mode read, set the block i/o bit 

rab Crab$v_bio] = fs inp_file CfilbSb_transfer_mode] EQL filb$k_xfrm_block) 
(IF .out_filb EQ. 0 
THEN 


-out_filb Cfilb$b_transfer_mode] EQL filb$k_xfrm_block)); 

Open and connect to the file 
$trace_print_fao (‘opening, fab=!XL', .fab); 
IF NOT (status = Sopen (fab = .fab)) 
THEN 

BEGIN : 

exchSutil _file_error (exch$_openin, .status, .fab, .fab Cfab$l_stv]); 

RETURN .status; 
IF NOT (status = $connect (rab = .rab)) 
THEN 


$close (fab = .fab); 
oo -Status; 


BEGIN 
exch$util_file_error (exch$_openin, .status, .fab, .rab Crab$l_stvJ); 


Create the result name string in the filb 

$logic_check (2, ((.nam Cnam$b_rsl) LEQU ft UbSs _ronyl t_ name) AND (.nam Cnam$b_rsl] GTRU 0)), 137); 
inp fiTb Cfilb$l_result nane_ Len} = .nam Cnam$b_rsl); 

CHSCOPY (.nam Cnam$b_rsTJ, .fam Cnam$l_rsaJ, 0, filb$s_result_name, inp_filb Cfilb$t_result_name)); 
Strace_print_fao ("Found "!AF', .inp_filb Cfilb$l_result_name_len], inp_filb Cfilb$t_result_name]); 


Define a record stream for this file 


inp_filb Cfilb$a_record] = 0; ! No valid record or length 

inp_filb tit pecererord len] = 0; 

inp_filb Cfilb$v_files_found]) = true; ! Found a file using this filb 

inp_filb Cfilb$l_oblock_count] = .xab Cxab$l_ebk) - ! Put the file size in the filb where any routine ca 


5 
EXCHSFIL11 Files-11 yolume specific routines 18-5 ep-1984 AX-11 Oi ieg -32 v4. “tt Pa 19 
voc exchSfilll_open.tite 1eagee}3Be 99:38:5, Hae MN Ob dese de Ve s0-248 9° 6) 
; 681 77 (IF_.xab Cxab$w_ffb] NEQ 0 ! (Eof block is one too high if the first free byte is zero) 
: 6 ¢ rg THEN 0 ELSE 1)? . - | 
3 ? ore fab Cfab$i_xab) = 0; ! Remove the xab from the fab, won't be valid after return | 
3 e 5 v8 Save the addresses of our routines for this volume and record format. 
: 68 778 inp. filb Cfilb$a_close_routine] = xch$filtt ~C lose, file; 
; 688 779 inp_filb Cfilb$a_put_routine = 1 Make it very hard to do a PUT 
3 on? f » inp: filb Cfilb$a_get_routine 5 exchSfill1_get; 
3 24 4 § END; ! End of BIND to the rmsb components 
; «69 oF 4 RETURN true; 
; 694 785 
: 695 0786 END; 
EXTRN LIBSFIND_FILE, EXCH$_FILENOTFOUND 
EXTRN SYSSOPEN 
OFFC 00000 »ENTRY Hes VATGPEN FILE. Save R2,R3,R4,R5,R6,- ; 0601 
SE 3¢ C2 9002 SUBL Rode ee : 
50 000000006 gf 4 C1 0000 ADDL a4 JEXCHSA_ GBL, RO 3 064 
3 60 DO 9000 OVL (RO) ; 064 
58 3¢ = A3-—s«&DO 00010 OVL 60¢ cnt, sas > 0645 
44 A 1 0014 PUSHL 68 ( 3; 0651 
15 13 00017 BEQL 1$ 3 
52 O35B00FA or 4 0019 OVL a5 g956r4. R2 é 
51 0241 f 0 2 MOVZWL OS 4] 3 
50 6E 00 000 VL (SP) 3 
900000006 F 18 0028 JSB pw BLOCK_CHECK ; 
52 0 ore F 8 88 3 18: MOVL #56295674, R2 3; 0652 
51 1F6 F C MOVZWL #50 ; 
50 8 dO B003A OVL RB ko” ; 
909000006 F 16 000 p JSB Ht BLOCK_CHECK ; 
52 O10A00F é g? 0004 OVL #174328 3 0653 
51 O1F7 F 3C OO04A MOVZ2WL #503, R1 5 
50 18 A8 DO 0004F OVL 24(R8), RO : 
000000006 EF 1 0053 JSB XCHSUTIL_BLOCK_CHECK ; 
1c A D 05 TSTL 8(R8) 3 0654 
13 13 0005C EQL $ ; 
7E 88 F OA B825 MOVZBL #136, -(SP) Z 
1 OD 6 PUSHL #1 : 
000000006 F DD Ope; PUSHL rts XCH$ penn occ : 
000000006 00 3 FB 00 oA CALLS @# ah fesstor j 
20 AB OD 1 28: TSTL 32(R8) > 0658 
dD 1 74 BNEQ $ F 
00000000G_ EF 8 fe 76 CALLS #0, CUPRA YT IL ANSE ALLOCATE ; 0660 
20 «AB p . 70 MOVL RO, 52(R8 3 
16 11 1 BRS 4 5 
2 031600F gr 0 3 38: MOVL é ie ae R2 3 0662 
1 OF F A MOVZWL #504 é 
oo0000806 tr 4 f reo Ha BLOCK_CHECK 
34 3 6D E $38 4% BBS #2, 5 45° 8 3 0667 | 


<m 


gz 


ifsto-1994 09:56:51 
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EXCHSFIL11 Files-11 volume specific routines 16-Sep-1984 00:56:31 AX=-11 Bliss-32 V4.0-74 Page 231 y 
v04 exchStill) put 4 132808138 99:38:04 EXCHNG. SRC exer iit 83951 ° ra) V 
; 697 787 1 GLOBAL ROUTINE exch$fil11_put = XSBTTL ‘exch$fil11_put’ é 
: 698 0) Bg BEGIN ? ” | ; 
; 699 7 ++ ‘ 
; 700 790 / ‘ 
; op) a4! FUNCTIONAL DESCRIPTION: ‘ 
; 08 538 { Add the next record to the file ‘ 
; 704 794 : : 
; 705 795 ! INPUTS: : 
; re £36 : ‘ 
; 70 079 : none ‘ 
: rs 144 : : 
: 70 799 ! IMPLICIT INPUTS: | ‘ 
; 710 0800 : ; 
; iy 0801 : copy Ccopy$a_out_filb - out_filb - pointer to filb for an open Files-11 output file ‘ 
; re pes : copy Lcopy$a_inp_filb - inp_filb = pointer to the input filb containing the record info ‘ 
3 67l 080 ; inp_filb Eritas _record_len] = len = length of the recor ‘ 
; a sti inp_filb Cfilb$a_record - buf - address of the record ° 
; 716 0806 ! OUTPUTS: : 
; 717 0807 : ; 
; 718 0808 : none ‘ 
: 719 0809 ‘ : 
; 720 0810 @ ! IMPLICIT OUTPUTS: ; 
i 721 0811 ! : 
3 Us¢ ttt ' out_filb will get updated ; 
3 fe 081 : : 
; 724 0814 ! ROUTINE VALUE: : 
3 es 0815 : : 
3; 12 0816 ! true if success, false if any error ‘ 
3; fer 0817 : : 
; 728 0818 ! SIDE EFFECTS: ; 
3 44 0819 ! : 
; 730 oa59 / error conditions will be signaled ‘ 
3 (3) 0821 feo : 
; At; bas§ . 
'. 082 Sdbgtrc_prefix ('filll_put> '); : 
3 734 0824 ; 
3 735 0825 LOCAL : 
; 736 0826 status : 
3 far 0827 3 ; 
; 738 0828 : 
3; 739 0829 BIND | : 
3; 740 4 0 copy = exch$a_gb Coxegsa.cop work]: $ref_bblock, ! COPY verb work area : 
; «(741 out_filb = copy Ccopy$a_out_f tb} : $ref_bblock, ! pointer to filb for an open Files-11 output file | : 
3 re 0 inp_filb = copy copy$a_inp-fitb : $Sref_bblock, ! potnter to the input filb with the record info 3 
> FR 0 len” = inp_fi filb$l"record_len), ! length of the record 3 
3 4 08: buf = inp_filb Cfilb$a_record] ! address of the record : 
3 «6745 0 ctx = out_filb filb$a~context4 block, ! output file context block 3 
3 6 bs) namb = out_filb Cfilb$a_assoc_namb] : $ref_bblock, ! associated output namb structure : 
; 7 0 fab = ctx Crmsb 2. fab] ref_bblock, ! RMS FAB for the file : 
3 : 8 rab = ctx Crmsb$a_rab bblock ! RMS RAB | : 
: 750 ; ; 
; 1 0 Sdebug_print_lit (‘entry'); : 
; § 0 $Sblock_check (2, .out_filb, filb, 505); 122 definitely over-zealous checking 3 
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EXCHSFIL11 Files-11 — specific routines ies Sep-1 AX-11 Bliss-32 V4. Page 24 ExC 
Soe000 exchSfilli_put. 1ergeb=13be 93:38:5, — eXcune’$AeSexer iy .09551 a v04 
: 754 44 $Sblock check (2, .inp_filb, fi 526); 
s £95 45 $block_check (2, .namb, namb, 6); 3 
3 f ° r Sblock-check (2, .ctx, rmsb, 5 
: , : 0 48 ! Set the record buffer fields in the rab 
: rey 0 29 if _.fab CfabSb_rfm) EQL fabSc_fix ! If we have fixed-length output 
: o O85¢ -fab Cfab$Sw_mrs) NEQ .len ! And the input length isn't correct 
: 764 854 BEGIN 
; 765 855 CHSCOPY { be -buf. “ioe 5 tt? Cfilb$b_pad cher). -fab CfabSw_mrs], out_filb Cfilb$t_record_bufferJ); 
; 766 896 rab Crab$i =rbfy's out fiL6 ities record_buffer 
: fo? TH rab Crab$w_rsz .fab Cfab$w_mrsJ; 
: 769 + $4 ELSE ! Otherwise just point the rab at the record 
; 770 0860 BEGIN 
; 771 0861 rab Crab$l_rbf buf; ' buffer address 
: 77 Baeg rab Crab$w_rszJ = .len; ! buffer size 
or 086 3 
; 774 0864 
; or? Bae? Write a single record to the output filb 
: 777 086 if NOT (status = Sput (rab = .rab)) 
: 778 086 
: 779 0869 BEGIN | 
: 780 0870 
; «(781 0871 exch$util_file_error (exch$_writeerr, .status, .fab, .rab Crab$l_stv]); 
; 78 087 RETURN .status; 
3; 087 
3; «784 0874 END; 
3; 735 0875 
; 786 087 RETURN true; 
: 787 0877 1 END; 


-EXTRN SYSS$PUT 


03FC 00000 .ENTRY EXCHSFIL11_PUT, Save R2,R3,R4,R5,R6,R7,R8,- ; 0787 
59 000000006 EF 9E 0000 MOV Pst a BLOCK _CHECK, R9 ; 
50 000000006 EF 4 C1 0000 ADDL RO + 0830 
31 60 00000064 8F C1 001) ADDL3 #68, (RO) ; 08 1 
0 : C €1 00019 ADDL3 #60, (RO). Bs : 08 
60 09 001D MOVL ROS, R : 08 
56 61 D 00 MOVL. (R1). R6 ; 8 
54 20 Ab 10 C1 0 ADDL #6, (R6), R4 : 
58 20 Ag 14 €1 00 ADDL (R6). RB : 08 8 
O35B00FA 8F po 6 D vl i585." r4, R2 > 084 
1 O1F9 = BF ¢ MOVZWL ; 
’ § 38 00 i ise) Ex WSUT BLOCK _CHECK ; | 
; O35B00FA F 90 : VL is ¥ } RD . + 0844 
OE 8F ¢ 4 MOVZWL ; R1 : 
0 3D 4A MOVL  R3, RO ; 
69 16 00040 JSB EXCHSUTIL_BLOCK_CHECK ; | 
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EXCHSFIL11 
v04 exch$fill 


42. AS 36 «A? 

36 «OAT 39s AS 46 
$8 

2 
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2 
000000006 

000000006 


; Routine Size: 217 bytes, 
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EXCHSFIL11_CODE + 0687 


4 00:56:31 AX-11 Bliss-32 V4.0-74 
32 90:38:34 EXCHNG SRETEREF ICT: 5 31 

MOV #17432823, R2 

MOV IWL #506 ef 

MOVL  24(R6), RO 

JSB EXCh FIL BLOCK CHECK 

OV. #51773686, R 

MOVZWL #507 

MOVL = 3 (RG) RO 

JSB EXCH UFIL BLOCK. CHECK 

MOV R4) R 

CM 1(R7), #1 

BNEQ 1 

CMBZV ‘ , #16, 54(R7), 66(R3) 

MOVCS  66(R3), @70(R3), 57(R3), 54(R7), 346(RO) 

MOVL (RB), R2 

MOVAB 346(R6), 40(R2) 

MOVW 4(R7), 34(R2) 

BRB 2$ 

MOVL (RB), R2 

MOVL 70 (R$), 40(R2) 

MOVW 66(R3), 34(R2) 

PUSHL R 

CALLS #1, SYSSPUT 

MOVL RO. STATUS 

BLBS status, $ 

PUSHL  12(R2) 

PUSHR #mcRS R7> 

PUSHL 16257232 

CALLS #4, EXCHSUTIL_FILE_ERROR 

MOVL STATUS, RO 

RET 

MOVL #1, RO 

RET 
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-EXTRN LIBSSIGNAL, LIBSSTOP 
: PSECT SUMMARY 
3 Name Bytes Attributes 
; EXCHSFIL11_CODE 1888 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Pie ee on Symbols -<----- - Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 117 1000 00:01. 

3 Hat tyes EXCHNG. OBJ JEXCL 18.L32;1 1151 86 ; 79 $0018 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LISS:EXCFIL11/0BJ=OBJS:EXCFIL11 MSRCS:EXCFIL11/UPDATE=(ENHS:EXCFIL11) 


: ig Pe 1888 code + 0 data bytes 


; Elapsed tteee 02:1 

3; Lines/CPU Min: 131 

3 powemees Cre Was 30904 
; Used: 282 pages 


; ae Beng Complete 
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